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Has a Large Range of the LATEST Atari Titles 
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COMPUTER-1 HAS ALMOST EVERYTHING... 











Printers, Printer Interfaces, Modems, Modem Interfaces, 
Joysticks from $15 --> $79, Power Supplies, Monitors, Disk 
Drives, Program Recorders, Disk Head Cleaners, Printer Ribbons, 
Touch Tablets, Disk Boxes, Antic Mags, Analog Magazines, Disk 
Doublers, Computer Tables, Atari 800XL, Atari 130XE, Heaps of 
Atari Books, Basic Carts, 1064 Memory expansion boards, Blank 
Tapes, Blank Disks, Invisiclue Hint Booklets for Infocom, Fanfold 
Paper plus a large range of Business, Educational and Recrea 
tional Software. 

-ocoo0000o000. 
WE HAVE OVER 40, 520ST SOFTWARE TITLES IN STOCK 


AT THE BEST PRICES AVAILABLE 
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There has been a lot happening over the past month with the club 
in general and with Atari. 

The committee has brought a large supply of blank disks, these 
disks are Double-sided and Double-density and will sell for $22.00 
for a box of ten including labels. There are still some Nashua disks 
left and these will be sold for $22.00 a saving of $5.00. The disks 
may be ordered by post but there will be a $3.00 postage fee. 

The bulletin has gone under some changes with the implementation 
of the ANTIC BULLETIN CONTRUCTION SET. From the Ist of MAY a 
membership fee will be required to use the board. The fee will be a 
$10.00 fee for life time membership for A.C.E members or $10.00 per 
year for non-members. To use the bulletin boards you will need a 
password. After sending the joining fee to A.C.E ring the bulletin 
board and leave a message to the SYSOP stating; 

Name 

Address 

Year Joining 

and Password (up to eight characters) 

Don't forget the club has to boards running and this fee allows 
access to both boards under the same password. 

Brain Elliot SIG-ED is nearly finished compling the Educational 
Disks with five already completed, Early Primary 1,2 & 3 and Logical 
Thinking 1 & 2. These will be demonstrated at the May meeting and 
will be avaliable from the software exchange then also. 

At the general meetings time will be made available for a 
software market, where programs can be bought, swapped or sold. 
Programs must be orginal as the club cannot condone software piracy. 
Please contact Ian Murray giving details, so he can organise the 
market and slot it into the meeting. 

PC86 was a great success. The club had three computers on the 
stand. One 520ST with colour monitor and two 130XE's. The ST was 
showing off its superior graphics with the AMIGA-BALL demo the POLY 
WANTS AN AMIGA, NO WAY JOSE! demo and a variety of colour pictures, 
sound demonstrations. The ST generated an enormous amount of interest 
and we even had people taking photographs of the colour pictures on 
the screen. People were impressed even by the XE's running ROBOTDEMO 
various sound demos and the eight-bit AMIGA-BALL demo. Questions like 
‘What sort of monitor is that?', reply 'Just a normal TV.', response 
‘OH my', so it looks like the 8-bits are here to stay. The other XE 
was connected up to VIATEL which was very impressive and in fact so 
impressive that 10 SUNSOFT B-MODEMS were sold after looking at 
VIATEL. 

Many thanks go to all that helped on the stand at the show and 
Special thanks to. Bordon Tkechuk from MOBEX who supplied all the 
computers for the show. Neil Patterson President of Adelaide ACE who 
helped out on the stand and who just came up especially for the show. 
Warren Hamilton from Queensland who sold the SUNSOFT B-MODEMS and 
PARIS RADIO ELECTRONICS who supplied us with ST software and 
information. Thanks also go to Telecom for the VIATEL link. 

More information on the ST pricing. The price of the ST will 
come down to match the AMIGA's price. The price of the monochrome 
ST's will be under $2000 and the colour system around $2490. Mobex 
will be at the Melbourne PC show to demonstrate the new machines with 
quote ‘one whole side of the floor' devoted to Atari, and also they 


2 ow 


may have US experts helping out on the stands. 

Lets hope with all this fuss about the ST's that they won't 
forget about the 8-bit systems, and continue to support them and 
hopefully bring the prices down on these machines and drives as these 
will be they mainstay of Atari in Australia. 

One more thing before I conclude, please keep sending in the 
survey. Already information from the surveys have shown that members 
from the country that cannot attend the meetings are missing out on 
the information etc presented at the meetings. This has been 
rectified now by, starting in the May Issue a regular column 
discussing what happened at the meetings and any demonstrations of 
programs will be reviewed in the magazine. 


Craig Armsworth 
EDITOR 
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The line 20282 if difficult to read in FONT WIDENER in ISSUE 23 it 
reads, 


20282 DATA 76,166, 6, 138, 96,0 
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Hello again fellow ST‘'ers, welcome to another fun packed episode 
of F.A.S.T.! 

Firstly I wish to thank all those members that worked on the 
A.C.E stand at the PC86 show last month. It was a very succesfull 
show for the ST's because as well being bombarded by questions and 
enquiries, visitors also gave great praise on the ST over the AMIGA. 
Not bad when you consider the AMIGA was demoted by it's manufacturer, 
while many people were more impressed by a User Group display using 
just one machinel!. 

One comment was about the AMIGA-BALL demo, of course we then 
demo'ed the superior ST-BALL then totally converted them to ATARI by 
showing them the XL-BALL (yep a 8-bit Bouncing Ball) running on a 
130XE (but not needing the extra ram)!. 

O.K. on the software front things are progressing well with new 
releases all the time and boy most of them are great. Of the games my 
favorite at the moment is KING's QUEST II (Romancing the Throne.), 
this is a Graphic Adventure with a difference! Your character can 
move amongst the 3-D animated location. For example if there is a 
lake, you can jump in and swim about! The music is also superb. Each 
of the multitude of locations are artfully drawn in up to 16 solid 
colors(RGB) or patterns(MONO). The adventures story is of King 
Graham's quest to find a bride. But the control of your character is 
what is unique, to 'GO EAST! just press the right arrow and Graham 
move east at one of three speeds. There are more than just puzzles to 
solve, there is other characters to intereact with, some like 
‘Haggtha the Witch' are out for the kill. She comes at yar so fast 
you have just enough time to duck behind the nearest tree and hope 
She does'nt see you!. But others like 'Little Red Riding Hood’ are 
very friendly especially when you help THEM. 

ANTIC Magazine are getting into the ST spirit with their Product 
Catalogue featuring some great programs at good prices. The most 
interesting is one called ‘Maps & Legends’, this programs draws world 
maps in COLOR or MONO from any viewpoint any altitude and from 6 
mapping conventions! You can display a full globe or zoom in and show 
just one fragment of the globe. Once the map is drawn you can then 
color it in with a variety of colors and patterns and also add titles 
and labels in 12 fonts (using ANTIC's Font Loader,Desk.Acc). Truly a 
fascinating program .It sells locally for $50Aust. 

Here's a bit of gossip, it seems ATARI are talking to METACOMCO 
with ideas of porting their TRIPOS (AMIGA-DOS) over to run on the ST, 
while COMMODORE are talking to DIGITAL RESEARCH about porting CP/M68K 
(TOS-ish) to the AMIGA. Talk about ME-TOO-ism! 

I recently picked up too books that I can really recommend. 
Firstly COMPUTE!'s ST PROGRAMMERS GUIDE, this is a 350 page book 
describing LOGO, BASIC, and parts of TOS & GEM. The book is divided 
into the 2 sections each for LOGO & BASIC, the first being a full 
description of the key words & commands. While the next section is a 
tutorial on the language, very good with good example programs and 
even a game of BLACKJACK on LOGO!. The TOS/GEM sections is very good 
showing how to interface the GEM calls from BASIC, along with a list 
of many o€ the common GEM calls info. Again with sample programs in 
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BASIC and 'C'. Price $30 at Co-Op Books 

The other book is one in ae series of seven, it is the GEM 
Reference manual from ABACUS books this is a 450 page monster with 
almost all of the GEM calls with examples written in 'C' and 68000 
machine code. The book show how to do Windows, Drop/Down Menus, ICON 
moving, Dialog boxes, ETC... An excellent book. Price $37.50 at 
Computer-1. 


Well thats it again for this month, Check yar later..... -Bye... 


www 
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by Elaine Hopper 








These are treasures to behold 
to attempt, love and scold 

These endeavours —- they can try 
and we always do ask why 


But again we come to face 
figures dancing in that place 
These that we can push and pull 
shove about to suit our will 


Cunning minds those things have built 
in attempt to move the silt 

Get us moving on again 
to make us think - that's plain 


First the task to move not linger 
it just takes one little finger 
Then as involved we do become 
takes much of thought to have it won 


Tracing mazes through our mind 

then trying tests of every kind 
Then the greatest plan of all 

to make it work we've got to call 


Some take affront with consternation 
"What - make us use imagination?" 
But intrigued by all that's there 
we again attack - with care 


So the games have taken toll 
all the players now don't loll 


Active minds and active hands 
once again front life's demands 
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LOGO SCREEN SAVER 


by Arthur Banks 


There are three programs included with this article. The first 
is a Logo program which can be used to write a turtle graphics screen 


to a disk file. To use it, simply draw a graphics screen, load 
PICSAVE.LOG and type PICSAVE. The picture will then be written out 
to disk. The apparent garbage which will be printed in the text 


window is the characters that are stored on the disk to represent 
your picture. 

The second program is a Basic program which can be used to load 
@ picture saved with PICSAVE back into memory. To use it, remove the 
Logo cartridge, boot up with Basic and type RUN "D:PICLOAD.BAS". 

The third program is a Basic program to load a machine code 
routine to dump a Graphics 7 screen to an Epson printer (or its 
equivalent.) To use it, first run PICLOAD.BAS as above then run 
SDUMP7.BAS. 

(If anyone has a better, faster, more convenient way of dumping 
a Logo screen I would be very happy to learn how to do it.) 


TO REM : COMMENT 
END 





TO PICSAVE 

PR CWHAT FILENAME DO YOU WANT) 

PR CTHE PICTURE SAVED UNDER?7] 

REM CESTABLISH THE FILE NAME AS "D:XXX.PICI 

MAKE “FILE FIRST RL 

MAKE "FILE WORD "D: :FILE 

MAKE "FILE WORD :FILE ".PIC 

REM CTURN OFF WRITE VERIFY] 

-DEPOSIT 1913 87 

REM CFIND THE START OF THE DISPLAY LISTI 

MAKE “DLIST € .EXAMINE 561 ) * 256 + .~EXAMINE S60 

REM CFIND THE START OF DISPLAY MEMORY] 

MAKE "DMEM € .EXAMINE € :DLIST + 5S ) >) * 256 + .EXAMINE € :DLIST + 4 
) 

REM COPEN THE DISK FILE) 

SETWRITE : FILE 

REM CREAD BYTES FROM DISPLAY MEMORY AND WRITE THEM TO THE DISK FILE] 
MAKE “LOC : DMEM 

REPEAT 40 * 96 CMAKE "BYTE .EXAMINE :LOC TYPE CHAR : BYTE MAKE "LOC 
:LOC + 17 

REM CCLOSE THE FILE] 

SETWRITE C3 

CT PR CNOW REMOVE LOGO, INSERT BASIC] 

PR CAND TYPE RUN "D:PICLOAD. BAS" FOLLOWED] 

PR CBY RETURN. 1 

REM CTURN ON WRITE VERIFY] 

-DEPOSIT 1913 80 

END 


Cay” 





1 REN § ‘ 
2 REN 8 LOGO PICTURE LOADER 8 
3 REN & by arthur Banks # 
4 REM & Published by Atari Computer & 
5 REM & Enthusiasts (4.5...) % 
6 REM & April 1986 8 
7 REM serereeseseeeeetaseceseecteseesezestitt: 






11 DIM FILES(12) , DEVICES 15) 

12 7 “WHICH FILE DO YOU WANT TO LOAD?" 
13 INPUT FILES 

14 DEVICES="0;" 

15 DEVICES CLEW (DEVICES) +13 -=FILES 

16 FILES=DEVICES 

28 GRAPHICS 7 

30 DLIST=PEEK (561) ¥256+PEEK (566) 

40 DMEM=PEEK CDOLIST#5)*#256+PEEK (CDLIST+4 





REM setarecreeereseeasecsesestesessssesstett: peetaereraatieit: ‘ 

REM & GRAPHICS 7 SCREEN DUMP 8 & 
REN 8 SUBROUTINE # 
REN 8 by Arthur Banks w 


REN &% Modification of COMPUTE!'S & 
REM % SECOND BOOK OF ATARI. a 
REM % THE 49 SECOND SCREEN DUMP & 
REM & originally conceived by & 
REM & DAVID NEWCORN # 
REM 
598 DIM AS{192):FOR B=1 TO 61:READ N:P 
OKE L535+B, M:NEXT B: ON=PEEK (88) +PEEK (8 
933%256 : DM=DNt 40495 


w On nana wane @ 





) 

45 REM LINES 5@ TO 7@ READ A PICTURE F 
ILE CREATED WITH PICSAVE.LOG 

46 REM AND REPRODUCE THE PICTURE OW TH 
E SCREEN 

47 REM READY FOR THE MACHINE CODE DUMP 
48 REM TO SE LOADED BY SDUMP7.BAS 

5@ OPEN #2,4,8, FILES 

6@ FOR X=@ TO (48%96)-1: TRAP 12@:GET & 
2,A:POKE DMEMFX,A:WEXT 

78 CLOSE 82 

86 7 “NOW, TO PRINT THIS PICTURE" 

90 7 “PRESS @ AND (iaMET?’ 

100 INPUT DEVICES: IF DEVICES="P" THEN 

RUM "D> SDUNP7. BAS” 

116 END 


$85 REM 

516 LPRINT CHRS(€27); "A"; CHRS (8) :FOR K= 
DM TO DMt39 

526 AS=CHRS (8) AS (96) -CHRS (8) AS €2)=AS 
540 W=USRC(L536, 8, ADRCAS):LPRINT CHRSC 
277 3°; CHRS (963 ; CHRS (8) 5 A$ 

558 WEXT XK 

560 BATA 104,164,141,21,6,104,141, 28,6 
7104, 141,27,6,184,141,26,6,168, 97,173, 
255,255, 136,248,35,141, 255,255, 238 

578 DATA 26,6,248,21,173,28,6,56,233,4 
@,141,28,6,144,4,24,76,19,6,206,21,6,7 
6,19,6,238,27,6,76,33,6,96 
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Hi, having finally surfaced after a mammoth disk making spree 
for the PC86 show, I am back at the keyboard to report on the new 
arrivals in the S.E. There are FOUR new disks this month, 2 Inside 
Info volumes and 2 new Games. 


INSIDE INFO Volume #6 $6.00 
This disk has the following programs from issues #20 & #21. 

PROGRAMS: Adding text in screen boarders,Computer Assisted 
Designer (very good), Electrical maths calculator, A 38 column 
program lister, MAC/65 macro's for maths, Delux disk menu, 
1020-Micropainter screen dumper in BASIC & ACTION!, Silly senteces in 
LOGO, Equation maker for MAC/65. 


INSIDE INFO Volume #7 $10.00 
This is a DOUBLE-SIDED disk of the programs from issue #22 (you know, 
the one that was ‘'BYTE' sized!). 

It contains: Bull Ants game, Deadline Dilemma game, 
Calender/Planner, Windows(al la GEM), Darts game, 800XL Ramdisk, 
Poker mach game, Biorhythm/days calc, Typing tutor (dats wot I need), 
Gangsters game, "SIMON' (tm) game, S.A.M. Speech editor, Home 
inventory, Player/Missile examples. 


O.K on too the -GAMES!-,: 
AMERICA's CUP. $6.00 (+$2.00) 

This is a surperb simulations of the America's Cup contest 
between Australia II & Liberty. It has all the rules and tactics, 
craft parameters, wind/weather changes, different sea depths, and six 
of the NEWPORT courses. And best of all it was written by one of our 
own members, Ken Hall. Good-One Ken!. 

As would be expected a game of this type need a lot of DOCO, a 
10 page rule book is sold as extra for $2.00, but a condensed set of 
rules is printed in this issue (#24). It is up to you to decide which 
one to use. 


COSMIC CRUSADERS. $8.00 (includes DOCO) 
Your chance to be a STAR-LORD and take the cosmos by (cosmic) 
storm!. This is a multi-player game of conquest cruise the galaxy 


with your Battle-Fleet fighting for the right to plant your flag in 
the planets soil. There are a multitude of options including Peace 
treaties (It is Internation Year of Peace, you know). A very 
absorbing game and well written in Machine Language. Price includes 
Rule book. 


Well that's it for this month, I'11 just add my usual request 
for Public Domain proggies, when (notice I say WHEN not IF) you send 
in a disk of programs plese include a list saying where they come 
from, much appreciated. BYE. 


; Re ANTIC P/D collection (look in ANTIC catalog), well 10 
of the disks have been ordered (yay team) more info when they arrive. 


www 
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A ROTATING RAINBOW 





Due to a Drive failure, all that I have been able to do on the 
Atari for the last month is program. And here are the results. Not 
one, not two, but three programs! 

In my first program, a pattern is drawn in Colour 1 in Graphics 
7, +and ae rainbow of 128 colours is rotated through it. The program 
uses both the VBI and the DLI - the Display List Interrupt. 

The VBI has been mentioned several times in the past, but for 
new readers, I will just touch on it again. First, load Y with the 
LSB of the start of your routine, load xX with the MSB of your 
routine, load the Accumulator with 7 to indicate deferred VBI and JSR 
through SETVBV (58460 - S$E45C). You must leave the VBI with a JMP 
through XITVBV (58466 - $E462). 

The Display List Interrupt is used for anything you want done 
part way down the screen. It is mainly used for changing colours. 
Note that you must use the hardware address, not the shadow register. 
So to change Colour 2, you must change 53272 ($D018), not 710 ($2c6). 
Try this: 

10 FOR I=1536 TO 1546:READ N:POKE I,N:NEXT I 

20 DATA 72,169,0, 141,10, 212, 141, 24, 208, 104, 64 

30 DL=PEEK (560)+256*PEEK €561):POKE DL+15,130:POKE 512,0:POKE 
513,6:POKE 54286,192 

This will make your screen half blue, half black.When using a 
DLI, you must: 

In Machine Language 
-Push all the registers you are using onto the stack. 

-~Precede any colour changes with a STA WSYNC (54282 - D40A). Storing 
a value into this location halts the CPU until the end of the scan 
line is reached. This eliminates flicker. 

-Pull al your registers before leaving. 

-Leave with an RTI (Return from Interrupt.) 

In BASIC 
-Alter the display list. Set bit 7 (Add 128) of the line before where 
you want your DLI to occur. It will be executed after the mode line 
with the bit 7 set. 

-Store the LSB of the start of the Routine into 512 ($200) 
-Store the MSB into 513 ($201) 
-Set bits 6&7 in NMIEM (54286 - D40EB). Bit 7 is for the DLI, but bit 
6 must be set for the machine's VBI. 
NOTE: SAVE THIS PROGRAM BEFORE RUNNING IT!! 








Listing One 

i REN 48 DATA 72,173,41,6,141,18,212,141, 22, 
2 REM 8 ROTATING RAINBON # 208,236, 41,6,238,41,6,104,64,8 

3 REM 8 by Glynn Gough 8 58 DL-PEEK (566) +256%PEEK (561) :POXE 512 
4 REM 8 Published by Atari Computer &# ,Z3:POKE 513,6:COLOR i 

5 REN ® Enthusiasts (N.5.H.) 8 66 FOR X-8 TO 159 STEP 3:PLOT K,@:DRAW 
6 REM % April 1986 8 TO 159-H, 95:NEXT X:FOR Y=26 TO 75 STEP 
7 REM J:PLOT 8, Y:DRAWTO 159, 95-Y:NEXT Y 

18 GRAPHICS Z3:POKE 5593,@:POKE 768,0:F 78 POKE DLt3,PEEK(OL4+3)4+128:FOR A=DL+6 
OR I=1536 TO 1577:READ W:POKE I, 8: NEXT TO OL+1@6:POKE &,141:NEXT A 

I 8@ HoUSRC1536) :POKE 54286,192:POKE 559 
28 DATA 194,162,6,166,11,169,7,32,92,2 ,34 

28,96 98 GOTO 98 
30 DATA 238,196,2,173,196,2,141,41,6,7 

6,398,228 





A PLAYER/MISSILE VBI ROUTINE ETE 

My second program sets up a three-colour Player and a Joystick 
VBI routine to move it. The first part draws the robot. The player is 
a combination of Player 0, which is white, and Player 1, which is 
deep purple. Because bit 5 of GPRIOR (623 - $26F) is set, where these 
two players overlap, the colour is a light purple. 

This Machine Language subroutine was originally planned to fit 
into Page 6, but because the subroutine was longer than a Page, the 
second part (The Joystick routine} had to be put somewhere else. So I 
put it in the unused area in the Player/Missile block. The only 
unfortunate thing about this is that the first part tells the CPU 
that the VBI resides in memory found by PEEK(106)-16. So, if you type 
in GRAPHICS 8, BANG! your machine locks up. To get around this, three 
bytes must be altered. They are byte #23,byte #51 and byte #149. The 
memory locations for these are 1558, 1586 and 1684 respectively. All 
of these must be decreased by the number of pages you want reserved. 

Anyway, the second part of the subroutine is the Joystick 
routine, which reads Joystick Port #1 and acts accordingly. 

Once you have accessed the routine once, that is all you need 
do. You can now wipe your BASIC program. The VBI keeps going. If you 
use a GRAPHICS command, you must follow it with X=USR(1536) to reset 
the PM. 

On pushing reset, you will notice the Player reappears. This is 
done by a RESET Key Interrupt. Try this: 


10 FOR I=1536 TO 1541:READ N:POKE I,NsNEXT I 
20 DATA 169,0,141, 198, 2,96 
30 POKE 2,0:POKE 3,6:POKE 9,3:POKE 54286, 224 
RUN it and hit RESET. 

This makes your screen biack on RESET! (NOTE: CASSETTE USERS 
MUST POKE 9 WITH A 2. Poking with a 3 causes your machine to jump to 
the location pointed to by DOSINI. If no disk has been booted, this 
will point to 0000, causing the Atari to take a nap. Likewise, change 
byte #11 (1546) in the program to 2 and also the POKE 9,3 in line 30 
of the above program. ) 

To use a RESET Key Interrupt, you must poke CASINI (2,3) with 
the LSB and MSB of the start of your routine. Poke BOOT (9) with 3 (2 
for Cassette users). Set bit 5 (Add 32) of NMIEN (54286 - D40E) for 
the RESET Key Interrupt. 

To get rid of the Player, Poke 9 with a 1 (0 for Cassette users) 
and push RESET. Hope you understood this... Stay tuned for Program 3. 


NOTE: SAVE THIS PROGRAM BEFORE RUNNING IT!! 





Listing Two 

1 REN ,133,264,162,6,166,8,169,8,145, 283, 200 
2 REM & PLAYER/MISSILE VBI # , 208,251, 230,284, 262 

3 REM & ROUNTINE 3 49 DATA 208, 246,56,165,106,233,12,133, 
4 REM & by Glynn Gough bf 204,169,62,141,47,2,169,3,141,29,208,1 
5S REM & Published by Atari Computer # 69,33,141,111,2,166 

6 REM Enthusiasts (N.5.#.) 3 56 DATA 111,162,0,189,158,6,145, 203,23 
7 REN B April 1986 " 2,200,224,19, 208,245,238, 204, 168, 118,1 
8 REN 69,158,6,145, 203,232,200 





16 FOR I=-1536 TO 1744:READ NIPOKE I,W: 
WEXT I 

2@ DATA 104,169,6,133,3,169,18,133,2,1 
69,3,133, 9,169, 224,141, 14, 212,56 

3@ DATA 165,106,233, 16,141, 7,212,165,2 


68 DATA 224,51, 208,245, 169,14,141,1972, 
2,169,80,141,193,2,169,@,141,8, 286,169 
»1,141,9, 288,162 

76 DATA 126, 142,6,208,162,124, 142,253, 
6,142,1,208, 160,116, 140,254,6,173,254, 


6,105,36,141,255,6 

88 DATA 56,165,106, 233,16,178,160,0,16 
9,7,32,92,226, 96 

98 DATA 126,126, 96,126,126,66,126,24,1 
26,0,0,255,84,42,255,2,16,68,24,24,8,8 
,8,6,6,24,0,0,24 

95 DATA 66,255,189, 169,189,189, 189, 255 
,255,126,126,36,36,36,36,36,36,36, 36,3 
6,231,165 

106 P=PEEK (106) :P=P-16:FOR I=P#256 TO 
PHZ56+146:READ NIPOKE I, NINEXT I 

116 DATA 173,120,2,9,11,2601,11,208,14, 
206, 253,6,173,253,6,141, 1,208, 105 

120 DATA 3,141,6,208,173,120,2,9,7,201 


8,105,3,141 

136 DATA @,208,173,126,2,9,14,201, 14,2 
06, 48,172,254,6,162,22,198, 284,177,263 
, 136,145, 263, 260, 268 

140 DATA 282,208, 246,172,254,6,162,34, 
236,264,177, 203,136,145, 203,268, 286, 26 
2,208,246, 286, 254,6,206,255 

156 DATA 6,173,126,2,9,13,281,13,208,4 
8,172, 255,6,162, 40,198, 204,177,203, 208 
7145, 203, 136,136, 262 

160 DATA 268,246,172,255,6,162,46, 230, 
264,177,203, 280,145, 203, 136,136,282, 28 
8,246,238, 254,6,238,255,6, 76, 98,226 
178 PM=USRC15S36) : END 


LN. , 7, 206,14, 238, 253,6,173,253,6,141,1,26 
——— 


A SCROLL IN THE PARK 





In my final program, a park is drawn in GRAPHICS 2 with a 
re-defined character set. The overall picture is four screens wide by 
four screens’ high, and a VBI Joystick routine enables you to scroll 
horizontally, vertically, and diagonally through it. Of course, the 
scrolling is smooth and free of flicker. 

The Display List has been moved to Page 6 to make changing it 
easier. Directly after it is the short routine to take the address of 
MLS and JSR through SETVBV (as mentioned in Article 1). The main part 
of the program is MLS, the joystick routine, in some ways similar to 
that used in Program 2. 

The two smooth scrolling registers, HSCROL (54276 - D404) and 
VSCROL (54277 - D405) are used to accomplish the fine scrolling. 

Some people may wonder why the scenery scrolls in the wrong 
direction. This just happens to be bacause moving the Joystick moves 
the TV frame. Just think of this as a window, and you move the window 
with the Joystick. For those who want the Joystick to control the 
scenery, the solution is obvious - turn the Joystick upside-down. But 
for permanent changes, change these bytes of ML$ (To help, there are 
25 bytes in each line). Byte #5 and byte #7 must be changed to 11 
($0B), byte #76 and #78 to 7 ($07), byte #147 and #149 to 14 ($0E) 
and byte #219 and #221 to 13 ($0D). 

So that's all there is to it. So sit back and enjoy a Nice 
Sunday Scroll in the Park. But watch out for the dog. 

Happy programming! 


NOTE: SAVE THIS PROGRAM BEFORE RUNNING IT!! 








Listing Three 
1 REN : 9,6,0,119,8,0,119,8,6,119,0,0,119,6,8, 
Z REN & A SCROLL IN THE PARK w 119,0,60,119,8,8,119,8,8 
+ REM & by Glynn Gough R 36 DATA 119,8,6,119,0,0,65,0,6 
4 REM 8 Published by Atari Computer 8 40 PS-PEEK (£66) -16:P=P5%256:FOR I=15408 
5 REM # Enthusiasts (N.5.H.) 8 TO 1573 STEP J:POKE T+lL, INTCP/256) : PG 
6 REN & April 1986 8 KE I, P-CPEEKCI+13#256) :P=PtS8O: NENT I 
7 REM eESeeseessecceaeesceetiisit 50 PC=PEEK(166)-26:POKE 756,PC:FOR I-@ 
16 POKE 559,0:DIN K$ (30) :X5-"heg ART TO 79:READ MiPOKE PCX2Z567+1,N: NEXT I 
OUST cae": HIS CADR CHS)? 68 DATA 6,6,6,6,0,0,8,0,126, 255,255, 25 


45 FOR I-1536 TO 1577:READ W:POKE I,W: 
WEXT I:POKE 560,0:POKE 561,6 
2@ DATA £12,112, 112,119,8,8,119,0,0,11 


5,126,24,24,66,24,66, 98,126,153,126,24 
,24,24,68,126, 255,255, 24, 24,66 
65 DATA 68,126,255,255,126,24,24,24, 91 


11 war 





» 238, 124,239,127, 253,127,219 

78 DATA 34,97,225,62,254,34,34,162, 84, 
170,16,36,668,24,24,66 

75 DATA 255,255, 98,127, 98,127,127, 96,2 
55,255, 78,254, 70,254, 254,6 

88 POKE 712, 14:PQOKE 788,230: POKE 789,2 
O2:POKE 718, 164:POKE 711,60: P=P5*%256 

85 POKE 1605,0:POKE 1606,0:POKE 1607,0 
:POKE 1668,0 

98 FOR I=1 TO S@G:X-INT CSHRND (0) 41:H2 
TINT CIHRND (03) SKININT CIG4OHRND CO) ) +P: P 
OKE XI, X+t64*XZSMEXT I 

188 FOR I=1 TO 7: K-INT C3GABXRND C82) +P: 
POKE 4, I4+i92: WERT I 

118 FOR I=1 TO Si X-INT CSE4GRRND CO>2 +P: 
POKE 4,200: POKE Ht1,Z261:MEXT I 

126 FOR I=1578 TO 1568:READ N:POKE I, 
SWERT I 

13@ DATA 104,164,178,104,168,169,7,32, 
92,228, 96 

1460 DIM WL$(267):FOR I=1 TO 287:READ N 
SMLS (I, T=CHRS CN) SMEXT I: X=U5RC1578,AD 
RIMLS)3:POKE 559,34 

150 GOTO 158 

160 DATA 173,128,2,9,7,201,7,288,62,17 
3,69,6,201,6,246,13,286,69,6,173,69,6, 
141,4,212 

178 DATA 169,1,268,113,173,71,6,281,68 
, 248, 186, 162, 4,168,12,169,8,6,24,105,1 
2157,0,6,144 


188 BATA 3,254,1,6, 232, 232,232,136, 286 
,236,169,7,141,69,6,141,4,212,238, 71,6 
»173,128,2,9 

198 DATA 11,201,11,288,62,173,69,6, 201 
27, 240,13, 238,69,6,173,69,6,141,4,212, 
169,1,2086,42 

280 DATA 173,71,6,201,0,248,35,162,4,1 
60,12,189,6,6,56,233,1,157,8,6,176,3,2 
22,1,6 

218 DATA 232,232,232, 136,208, 236,169,8 
7 141,69,6,141,4,212,266,71,6,173,128,2 
7 9,13,261,13, 288 

226 DATA 67,173, 78,6, 201,15, 246,13, 236 
, 70,6,173, 78,6,141,5,212,169, 1,288,472, 
173,72,6,2601 

23@ DATA 36,2480,35, 162, 4,160, 12,189,8, 
6,24,105,80,157,0,6,144,3,254,1,6,232, 
232,232,136 

240 DATA 208, 236,169,0,141,76,6,141,5, 
212,236,72,6,173,12@,2,9,14,201,14, 288 
62,173, 76,6 

25@ DATA 201,0,248, 13,206, 70,6,173, 78, 
6,141,5,212,169,1,208,42,173,72,6,281, 
6, 240,35, 162 

268 DATA 4,160,12,189,0,6,56,233,88,15 
7,0,6,176,3,222,1,6,232, 232, 232, 136,26 
8, 236,169,15 

270 DATA 141, 70,6,141,5,212, 206, 72,6,7 
6,968,228 


WWW 


SONGHASTER “a, 


will 


SONGMASTER is a quiz game for up to 4 players. 
is 
computer 


by Andrew Hobson 


The object of the 
to gain 50 points, by guessing the name of the song played. 
play the first note of the song, 
up to the tenth note in the song. 


then the second 


If no-one can guess the song, 


another song is played. 

The fewer notes that you guess the song in, the more points you 
receive (from 14 to 5 points) and vice versa, the more notes you get 
the song's title wrong in, the more points you lose. 


PLAYERS 1 & 2 use joysticks 1 & 2 respectively, while players 3 
& 4 use the keyboard. The song will be played starting with 1 note 
etc. and the first person to press the joystick trigger or their 


designated key will be given the chance to name the song. Once they 
have done this, the song will be played once more, and then you will 
have to indicate whether you got it right or not (using the Joysticks 
or keyboard). 

The songs are taken from 'GUESS THAT SONG', ANTIC JULY 1985. I 
decided to slightly change it, but ended up rewriting the whole game, 
except for the song data lines. 


The game is great fun to play when the whole family is involved 
and it combines speed (in pressing the button/key first) and 
knowledge of the songs. I hope everyone will enjoy it greatly. 


Cay 








1 REM siete 

2 REN H SONGMASTER 8 
3 REN & by Andrew Hobson 8 
4 REM & Published by Atari Computer # 
5 REM B Enthusiasts (4.5.8.3 a 
6 REM # April 1986 8 
7 REM sitetteeet 

10 GOTO 108 


19 REN %3Ht PLAY SONG st 

2@ FOR I=1 TO PLAY:FOR J=i TO CTEMPO)® 
(ASC (CDS (T,1))-64) SOUND 8, ASC CPS(T, 12) 
18,8: NEXT J 

3@ FOR J=1 TO PAUSE: SOUND 8,8,0,0:NEXT 
J 

46 IF STRIG(@)-@8 THEN PL=1:G0TO 4008 
56 IF STRIGCL)=@ AND NUM) THEN PL=2:6 
OTO 48068 

60 IF PEEK(C7646)=23 AND NUMDZ THEN PL=3 
GOTO 4880 

76 IF PEEK(764)-=38 AND NUMDS THEN PL=4 
‘GOTO 4686 

275 IF PEENC7643=33 AWD PLAY=-18 THEM PO 
KE 764,255: G0T0 668 

8@ NEXT I: SOUND 6,0,6,@:POKE 19,0:RETU 
RK 

99 REM MEH TITLE et 

160 POKE 166, PEEK{166}-S:GRAPHICS @:PO 
KE 752,1: START= (PEEK (166) #134256 521-18 
24 

110 GRAPHICS @:DL-PEEK (568) +PEEK (561) % 
256;POKE DL410,7:POKE DL#+i1,7:POKE DL? 
27,65 

12@ POKE DL4+26, PEEK (560) :POKE DL+29,PE 
EKCS6L) SETCOLOR 2,8,8:POKE 752,1:5ETC 
OLOR 1,0,15:5ETCOLOR 6,12,8 

13@ POSITION 5,5:7 “SONGMASTER": POSITI 
OW 19,6:7 "by": POSITION 13,7:7 “andrew 
Hobson" 

135 POSITION 7,10:7 "Initializing,Plea 
se wait" 

146 DIM MAMES (40) ,PS(11),0$ C11), PLAYER 
$ (60) , W1$ (8), 5C05) , PL$ (58) , PTS (4,38), T 
14) ,56C42) : TH-18 

145 FOR J=1 TO 41;56G-J: NEXT J:FOR I 
=1 TO 41: JDINT CAND (1) (4141-1341: TEMP 
=SGCT) 256 CT) =56 (J): SG(J2=TEMP INERT I 
156 PLAYERS €1)=" ":PLAYERS(59)=" ":PLA 
VERS (2) =PLAYERS: FOR J=1 TO 4:TLCJ=6:N 
EXT J 

166 FOR J-160 TO 46 STEP -1:SOUND 6, J+ 
60,18,25-J/4:POKE 53760, 5: MERXT J: SOUND 
8,8,8,9 

169 REM 386 SET-UP SCREEN 2% 

176 POKE 166, PEEK (1@6)-5:GRAPHICS @:PO 
KE 752,41: 5 TART= (PEEK (106) +1)#256 

18@ GRAPHICS @:POKE 559,8:POKE 752,1:0 
L=PEEK (568) +PEEK (5613 %256:POKE DOL+6,6: 
POKE DL+7,6:POKE DL+27,65 

19@ POKE DL4+2&,PEEK (568) :POKE DL+29, PE 
EK(S61) :POKE 708,260:POKE 752,1:POKE 7 


09,G:POKE 7180,236:POKE 559,34 

260 POKE 82,6:POSITION 8,3:7? " ":GOSHB 
68608 

218 REM #368 PLAYERS NAMES see 

228 7 :7 " WUMBER OF PLAYERS (1-4)"; 
TINPUT NUM: IF NUM<{1 OR NUMD4 THEN GOSH 

B 2608:POSITION 27,3:7 " "“:G0TO 218 
238 POSITION 3,3:7 “ENTER NAMES (7 LET 
TERS OR LESS)": FOR J=-1 TO NUM 

248 POSITION 6,5:7 “ENTER NAME OF PLAY 

ER "333" “POSITION 23,5:1 

WPUT NiS 

256 IF LEN(N1$3<1 OR LENCNLS)>7 THER 6 

OSUB 2606:G0TO 248 

268 5T=CJ-1)%9: ST=5T+ (8-LEN CNIS) 9 /22PL 
AYERS CST)=MAS: NEXT J 

286 PLAYERS (LEN CPLAYERS) +1, LENCPLAYERS 

»+8)=" “SFIRST-1:G05UB 6068 

298 REM 3 POINTS TABLE tt 

308 POSITION 13,3:7 “POINTS TABLE" 


310 7°57 "NO. OF ROTES CORRECT 
WROWG":? PLAYED ANSHER 
ASHER" 


338 FOR J=1 TO 1@:POSITION 4,74J:? J:P 

OSITION 20, 743:7 "t"s45-J:POSITION 31, 
7452? IMT(-@. 5%) WERT J 

348 GOSUB 5690:GOSUB 6808 

35@ REN 3086 CONTROLS USED st 

376 GOSUB 6988 

380 POSITION 10,3:7 "CONTROLS USED" 

408 FOR J=1 TO MUM:PLS=PLAYERS (J%9-8, J 

#9) 

418 IF J<3 THEN POSITION 4,54+4:? PLS;" 
USES TRIGGER "; 

420 IF J)2 THEN POSITION 4,5¢J:7 PLS;" 
USES KEY ";CHRS(90%(J=3) +47%(J=4)) 
430 NEXT J:G0SUB 580@:G05UB 6088 

439 REM 3066 MAIN GAME s0HE 

448 GOSUB 6880 

450 SONG=SONG+1:PLAY=@:POKE 764,255 

466 POSITION 15,2:7 "SONG ";50NG 

478 POSITION 8,6:7 "PRESS TOH 

EAR SONG":IF STRIG(@)<()@ THEN 478 

475 GOSUB 2000:FOR T=1 TO 400:NEXT T:P 

OSITION 30,6:7 " ":POKE 764,255 
486 TUNE=TUNE+i1:I1F TUNE=42 THEN TUNE=1 

498 POSITION 8,6:7 "CAN [ZH] NAME THIS 
SONG?":PLAY=1 

5@8 RESTORE 7000+5G (TUNE) :READ TENPO,P 
AUSE, PS, DS, NAMES: TEMPO=TENPO~ CTEMPO#L/ 
(PAUSE#2)) : PAUSE=PAUSE-1 

510 POSITION 13,4:7 "NOTES PLAYED:";PL 

AY:GOSUB 28 

520 IF PLAY=10 THEW POSITION 5,16:? "T 

HAT I5 ALL THE NOTES THAT CAN BE 

PLAYED" 

S36 IF PLAY=16 THEN POSITION 7,15:2 "P 

RESS TO GIVE-UP" 

540 FOR TIME=1 TO 35 

55@ IF PEEK(764)=33 AND PLAY=10 THEN P 
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OKE 764,255:60TO 608 

568 IF STRIG(@}=8 THEN PL-1:G0T0 4868 
570 IF STRIG(1)=@ AND WUM)1 THEN PL=2: 
GOTO 4060 

580 IF PEEK(764)=23 AND NUM)2 THEN PL= 
3:G0TO 4690 

585 IF PEEK(764}-=38 AND MUM)3 THEN PL= 
4:G0TO 4806 

590 NEXT TIME:IF PLAY<(1@ THEN PLAY-PLA 
Y¥+1:G0TO 516 

595 GOTO 518 

559 REM 3 NO ANSWER 3HHt 

686 GOSUB GOGG:POSITION 3,5:7 “NO-ORE 
COULD GUESS THAT SONG! !":POSITION 15,7 
:?7 "THE SONG WAS : * 

616 POSITION 2+ (36-LEN CWAMES))/2,9: FOR 
J=1 TO LEWCWAMES) :? WANESCJ,J)3:FOR T 
=6 TO 3:50UND 8,286,18,8:NEXT T 

626 FOR T=@ TO S:50UND @,0,8,0:MEXT T: 
NEXT J:FOR T=@ TO 180: NEXT T 

630 FOR J=1 TO NUM: PTSCJ, SONG) -@:NE 
J:GO5SUB 275068:G605UB 5886:GOSHB 7688 

648 GOSUB 6668:G0T0 456 

1999 REM #88 ‘BEEP’ SOUND xt 

2068 FOR T=1 TO 26:50UND 8,255,18,10:8 
EXT T:50UND 6,8,8,8:RETURN 

2499 REM 38HE PLAY SONG 2408 

25606 FOR I=1 TO TU:FOR J=1 TO {TEMPO)* 
CASC COS (I, 1) )-643:50UND 6, A5C (PCI, 1) 
,18,8:MEXT J 

2518 FOR J=1 TO PAUSE:SOUND 6,@,0,0:NE 

XT JIWEXT I: SOUND 6,6,6,6: RETURN 

2999 REM 3% SCORE TABLE 33% 

3908 GOSUB 66008 

3@10 POSITION 15,2:7 "SCORE TABLE": P05 
ITION 6,3:?7 PLAYERS:FOR T=@ TO 39:POSI 
TION T,4:7 "L"i WERT T 

3620 FOR J=FIRST TO SONG: POSITION 6, Jt 
S~FIRST:? "SONG ";J:FOR T=1 TO NUM 
3030 IF PT5(T,J2<2 THEM POSITION (T 
oJt5-FIRST:7 PTISCT, 

3048 IF PTSCT,J)2@ THEN POSITION (19) 
»Jt5-FIRST:? “tS PTSCT, 32 

3850 WENT TiIF J/11-INTCS/11) THEN MKT 
=1 

30866 WEXT J 

3078 FOR T=6 TO S9:POSITION T, J#5-FIRS 
Ti? “_"sWEXT T 

3086 POSITION @,J46-FIRST:? “TOTAL: FO 
R T=1 TO WUMIPOSITION (7%9), JH6-FIRST: 
? TLET)ENERT T 

3698 FOR T=i TO NUM:IF TLCT)>49 THEM P 
L=T:G0TO 8608 

3160 WEXT T:IF MXT=1 THEN NXT=O:FIRST=- 
J 

3118 GO5SUB 5906:RETURN 

3999 REM 336§ ANSHER + SCORES HF 

4068 GOSUB 6868 

4010 PLS=PLAYERS (PL¥9-3, PL¥9) : POSITION 
5,4:7 86;" "SPL$ 


4026 FOR I=i TO PL¥2:FOR J=PL¥S@ TO PL 

4504 (12-PL¥2) SOUND 6,J,16,8:NENT J: ME 

XT I:5O0UND 6,6,6,0 

4638 POSITION 4,3:2 PLS;" ,NANE THAT 5 

ONG Hii" 

4046 POSITION 3,7:7 “WHEN YOU HAVED NA 

MED THAT SONG PRESS 

(ay: FOR T=1 TO 180:NEKT T 

4050 IF STRIGCPL-13(>@ THEN 4058 

4866 GOSUB 2600:FOR T=1 TO 1@0:NEXT T 

407@ GOSUB 666@:POSITION 15,3:7 "THE S 

ONG WAS :": POSITION 2+(36-LEN(NAMES))/ 

2,5:FOR J=1 TO LENCWAMES) 

4080 7 NAMESCJ,J3;:FOR T=@ TO 3: S50UND 

0,200,106, 6:NEXT T:FOR T=@ TO 5:SOUND 6 

,8,0,@:NERT T:NEKT J:FOR T=@ TO 100 

4090 NEXT T 

4095 GOSUB 2500 

4100 7::7::2"" DID YOU GET IT RIGHT 

s"SPL$3"2": POSITION 17,14:7 "EER: POST 
117,132? "NO" ENRT=L 

4120 POSITION 2,17:2? "CHSE JOVSTICK/TR 

IGGER OR KEYBOARD)" 

4128 POKE 764,255:FOR J=1 TO NUM:PTS(J) 

,5ONG)=6:NEKT J 

4130 IF PEEK(764)=43 THEN WHT=1:G0TO 4 

198 

4146 IF PEEK(764)=35 THEN WHT=2:G0TO 4 

198 

4150 IF STICKCPL-1}3-14 THEN POSITION 1 

7,41:7 “SEE POSITION 17,13:7 "NO": NRT 

=1:605UB 2068 

4166 IF STICK(PL-19=43 THEN POSITION 1 

7,13:7 “"CBY':POSITION 17,11:7 “YES"<NHT 

=2:G0SUB 2000 

4170 IF STRIGCPL-1)=@ THEN GOTO 4190 

4186 GOTO 4130 

4190 IF WXT=1 THEW 5C(PL2=15-PLAY 

4260 IF WKT=2 THEN SCCPL)=INT(-8.5¥PLA 

\ 

4216 WHT=@: TLCPL=TL CPL) 450 CPL}: PTS CPL 

,50NG)=S5C (PL) :G05UB 3866:G05UB 6000:60 

To 456 

5800 POSITION 1,19:7 "PRESS 0 

R TO CONTINUE": POKE 764,255 

5010 IF STRIGCO)<)@ AND PEEK (764) <)33 

THEN 5610 

5028 GOSUB 27000: RETURN 

6000 7? "RK": POSITION 5,157 86;"SONGMAST 

ER": RETURN 


7008 REM SONG DATA TAKEN FROM 
"GUESS THAT SONG' ANTIC JULY 1985 
7801 DATA 15,8,11y18 BEET, AAABBBBABA,"” 

Sunshine of Your Love" 

7882 DATA 10,4, 07 yRttram, BAHABAIBAB," 
Yellow Submarine" 

7083 DATA 16,4, MTERr161¢, AAHAAAAAAB,” 
Yesterday" 

7004 DATA 6,5, ylFLFlLW YF , CCOCCCBBPC,"T 
he Age of Aquarius” 

7885 DATA 16,3, @eRR@NOUC@, DBACBCABHE," 
Scarborough Fair" 

7886 DATA 13,4, ¢HOLOel010, AAAALAAACL," 
California Breaning" 

7007 DATA 4,6, E0<@HGESHOH, BFFCHBFFCH, "H 
appy Together" 

7888 DATA 25,4, RyeHeeye <a, AAAAARAAAA," 
Stairway to Heaven" 

7809 DATA 12,6, Qf frflyyf, CCFBABAHAB," 
Close to You" 

7818 DATA 20,5,RERWy (OHH, AABBBACAAA," 
Ebony and Ivory" 

7611 DATA 26,3, iy fly fly FM, aaAAAARAAA,” 
Moonlight Sonata" 

7812 DATA 21,4, 0079019017, BBBAABAABB," 
Pictures at an Exhibition" 

7013 DATA 12,4, (8(5<@H(<H, LAARARABAA," 
Ravel's Bolero" 

7614 DATA 20,7, TRERIHHULE, AAAABABABA," 
The Blue Danube" 

7015 DATA 6,5, QRIaaaae, CCCHCCCLEB, "B 
eethoven's Fifth Symphony" 

7816 DATA 26,3, Gyeteuy (6, AADAADAABC," 
Brahes' Lullaby” 

7017 DATA 23,4, oylOQL CHAO, AAAAAAAAAA," 
Jesu Joy of Man's Desiring’ (Bach) 

7618 DATA 20,3, oUelri{tr1, ABABAACAAB," 
Carnival of Venice" 

7019 DATA 4,8, 1111600161, FAAAFFFFME, Ma 
rche Miniature from "The Nutcracker" 
7628 DATA 28,3, Qyflyfyly §, aananaanna,” 
The Godfather" 

7821 DATA 5,4, Miyléyyyl¢, DBDBGEDZDED, "A 
11 in the Family" 

7622 DATA 15,4, Her{ZeCEren, BCAJBCAJBC," 
Tara's Theme" (Gone With The Wind) 
7823 DATA 15,5, [FIFI Flyly, BBACBBAGAA," 
MASH" C"Suicide is Painless") ; 
7624 DATA 8,5, EReir(Helr, DEGAAAGDAA, "S 
tar Wars” 
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7625 DATA 14,4, QHOL¢1Y{2%;, BBAAFAABED," 
The Sound of Music" 

7026 DATA 12,4,.B RGR Ci (0, AnABABAF AA," 
The Sting" 

7827 DATA 6, 20,07 ye, CCBBCCBBCC," 

Mission Impossible" 

7628 DATA 18,5, ERIrEROOL, CAFBAAAFAL,” 

Star Trek" 

7629 PATA 10,5, DLF1WYLL®, MAARAABBAA,” 
Oklahoma!" 

7638 DATO 16,7, 0661614660, CBABABAKAE," 
Raindrops Keep Falling on My Head" 
7831 DATA 9,5, ELELMVOl yf), BACCCFBACC,"T 

he 5tar-Spangled Banner" 

7032 DATA 14,3, 1 LQH@HOOY!] , BDBCABDBCA, " 

Greensleeves” 

7833 DATA 16,5, EE REELEER, DCAAGABANB," 

Beer Barrel Polka" 

7834 DATA 11,5, LOIQMOICIE, BBBBCAAABI," 

How Much iS That Doggy in the Window?" 
7035 DATA 36,3, EERATETIS, ANAEAAABCA," 

Autumn Leaves” 

7036 DATA 15,8, 09 y1¥ irbr , AAAAAABANB," 

In the Hall of the Mountain King” 

7837 DATA 3@,4,Gelr7 CU BLU, ARAAAABAAA," 

When You Wish Upon a Star” 

7038 DATA 21,4,Myl FORIC BB, AAAAAFBFBH," 
The Shadow of Your Smile" 

7039 DATA 13,4, ERy1E1 (ayl, DBBCADDBBH,” 

Anchors Aweigh” 

7040 DATA 3,8,y1¢(YEMIT)1, BBBGGEDBDB, "5 
eventy-5ix Trombones" 

7041 DATA 15,6, 

Red River Valley" 

7999 REM 3% WINNER 30t 

8888 GOSUB S@8O:G0SUB 6@88:POKE 764,25 
5! PLS=PLAYERS (PL¥9-6, PL¥9) : POSITION 5, 
3:? “CONGRATULATIONS , ",PLS 

8865 POSITION 6,5:7 "YOU ARE THE EDDIG: 

fas TE RE 

818 POSITION 12,7:7 "SCORE ";TLCPLI:R 
ESTORE 10806:READ TEMPO, PAUSE,PS,D$: TU 
=1L:FOR T=1 TO 200: NEXT T:G05UB 2568 
8020 POSITION @,12:? "PRESS 0 
R TO PLAY AGAIN" 

S638 IF PEEK(764}{)33 AND STRIG(@) <6 
AND STRIG(1)()0 THEN POKE 764,255:G0TD 
sexe 

8648 RUN 

16088 DATA 6,4, 1rIG1OCUOLH, DCABDBBBBED 





J, AABAABAARAE ,"” 
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ERMUERICGAS Cur 


This is a abridged version of the rules booklet for the software 
exchange disk AMERICAS CUP by Ken Hall. The full documentation, 
complete with sailing tactics and pictures of the various courses are 





available from the software exchange for $2.00. 


AMERICAS CUP 


The object of 
to... 


Americas Cup is 


A) Design the quickest boat. 


B) Select optimum sails to suit 
the forecasted weather 
conditions. 


C) To sail the quickest course 
and cross the finish line 
ahead of the other boat. 

D) To be the first to win four 
races and take the cup. 


DESIGNING YOUR BOAT 

Yachts have to sail in 
three main directions, with 
respect to wind direction. 

1) TACKING...into the wind. 

2) REACHING..any direction which 
is not into the wind or down 
wind. 

3) DOWN WIND.with the wind. 

In order to design your 
boat you must select a value for 
each of these three directions. 
The total of these three numbers 
may not exceed a value of five. 


eg. 
Boat 1..Into Wind...3.0 
Reaching....1.3 

Down Wind...9.7 
Total...... -5.0 

Boat 2..Into Wind...2.5 
Reaching....1.8 

Down Wind...Q.7 
Total....... 5.0 


Boat 3..Into Wind...2.7 
Reaching....1.5 
Down Wind...1.5 
Total....... 5.7 
From the above examples, it can 
be seen that boat 1 is faster 
into the wind but slower on the 
reaching legs. Boat 3 is an 
invalid entry and would have to 


be designed again. 





SELECTING YOUR SAILS 

Before each race, a weather 
forecast will be given 
consisting of two parts. 
1) Wind Strenght ranging from 5 
to 25 knots. 
2) Wind Strenght Variation. The 
ammount that the winds are 
likely of changing. 

The value you choose for 
your sails will range from 0.7 
for heavier winds to 1.4 for 
lighter winds. Selecting bigger 
sails will give you the edge in 
light conditions but will be a 
hinderance in heavy weather. 


SAILING THE RACE 
1.Changing Directions. 

The boats can sail in seven 
directions, corresponding to 
seven of the joystick positions. 
The direction that will not 
respond to the joystick is 
forward, this is for obvious 
reasons. i.e. yatchs cannot sail 
directly into the wind. JOYSTICK 
PORT 1 is Liberty and JOYSTICK 
PORT 2 is Australia II. 
2.Starting Manouvers. 

At the start both Liberty 
and Australia II are positioned 
to the left and upwind of the 
staring line. You have just two 
minutes to sail into a position 
which will give you the 
advantage. A warning bell will 
sound at... 

1 MINUTE TO GO 

30 SECONDS TO GO 

5 SECONDS TO GO 
THE GUN WILL FIRE AT THE START. 
3.Sailing The Course. 
1ST LEG....Into the wind. Sail 
this leg in tacks from left to 
right, up to the top mark. 


2ND LEG....Reaching out to the 
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wing mark. till you hear atone, then 


3RD LEG....Reaching back to the release it. This will record 
bottom mark. your time so that it can be 
4TH LEG....Same as 1ST LEG. displayed at the end of the 
5TH LEG....Directly down wind. race. 
6TH LEG....This is the final 6.At The End Of Each Race. 
beat to windward and instead of After each race a 
rounding the top mark, you timekeeping chart will be 
continue on past the finish line displayed containing the 
until the computer displays who following information. 
one. A....The Winner. 
4.Rounding The Mark B....Time of the Winner. 

When rounding the mark you C....Times of both boats as they 
are not allowed to touch the rounded the marks. 
bouy. If you touch the bouy you D....Margins in seconds between 
will be required to round the boats at marks. 
mark again. After viewing the chart just 
5.Recording Your Time press start for the next race. 


As you round each bouy or 
mark, press your joystick button 


www 


HAATEAD 


By Richard Michell 


Now you can go surfing all through winter without the need to 
buy a wetsuit. All you need is a joystick in Port 1. 

Type in Waxhead and RUN it. A title screen will appear. Press 
the joystick firebutton to initialise the game. This takes quite a 
while. 

Once the beach scene appears you are ready to go surfing. Press 
the firebutton for a wave and you're off. Control Waxhead by moving 
the joystick up, left or down. 

The object is to score as many points as possible in riding the 
wave. You get points for manoeuvres. The closer the manoeuvre is made 
to the white water of the wave the higher the points scored. 

The length of the ride is controlled by the countdown timer 
displayed at the bottom righthand corner of the screen. The ride also 
ends (obviously) if you wipeout. 

To call up another wave, press the firebutton. Goodluck, but 
watch out for other ocean dwellers. 








1 REM TTT 24 DIM SCRST16), THTS C48), THTHS (48), TMS 09,ADPLH:POKE 218,@:POKE 219,13:POKE 2 
2 RER & HAXHEAD # = (3), HEADS (24) , MLORAWS (130) 28,138: POKE 287,PM:POKE FLAG,6 

3 REM 8 by Richard Michell & 36 SCROLS-1788:DEL-9006 2040 POKE 53278,1:POKE 26,8:POKE 19,@ 
4 REM & Published by Atari Computer 8 56 GOSUB 8660:G05UB 91860:GO5UB 8606:G0 2658 D-USR CADMOV) 

5 REM B Enthusiasts (N.5.H.) #8 SUB 3@66:G05UB 4855 2868 D=USRCADRCMLHOLITS)3 

6 REM April 1986 # 28068 REN MOVE ROUTINE----~----------- 2678 GOSUB SEL 

7 REN 2010 DELAY=40:HOCT=1786:FLAG=1787:FINI 2680 IF DELAY)19 THEN DELAY-DELAY-2 

26 DIM MLWUS (50) , MLUBS (30) ,MLUBIES(3@) SH-6200:WIPOUT-6600 2090 IF SCORE)S@ THEN DELAY=2 

,MLMOUS (200) , NLPOKES (59) , MLOCMUS (40), 2826 PST=14:5CORE-@ 2180 VoOPEEK (208) | IM-PEEK (218) : P=PEEK (2 
LFIMUS (40) , MLCHMVS (35) , MLWOLITS (5@) 2038 POKE 204,65:POKE 266,ADPLL:POKE 2 19): H=PEEK(226) 
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FLG=PEEK (FLAG) 
IF FLG=1 THEN D-HSRCADOCMY) : GOTO 


2118 
2126 
z176 
213@ IF FL6-2 THEN GOTO WIPOUT 

2146 IF FLG=3J THEN D-U5RCADFIMV) : GOTO 
2178 

715@ IF RND(@)>8.9 AND U<S@ THEN POKE 
FLAG, 1:POKE HOCT, I6#RND (8) +20 

2160 IF RWD{6}>0.9 AND V)7@ THEN POKE 
FLAG, 3:POKE HOCT, 9@*RND CA) +20 

2170 SCORE-SCORE+ (P{> PST) ¥(14+18% (U)75) 

HCH) 133) 415% (0 (409 CH) 128) 45% (0 (50) ¥ CH 
>127)) 

2186 PST=P:POKE 218, IM:POKE 219,P:POKE 
220,H 

2200 SCRS=STRS (SCORE) 

2226 FOR I=1 TO LEWCSCRS) 

2248 INTCHR=ASC (SCARS (I, 1))-32 

2266 POKE THTAD+I+6, INTCHR:KEXT I 

2368 TIRE-PEEK C19) : THS=STRS(18-TIME) :T 
MS (LER CTMS2 41)=" " 

2326 FOR I=i TO LENCTHS) 

2340 INTCHR=ASC (THS CI, 129-32 

2360 POKE THIAD+I417, INTCHASNEXT IT 
2388 IF TIME=16 THEM GOTO FINISH 

2339 GOTO 7850 

3866 REM DLI WAVE ROUTINE-----~------ 
3840 ADWU=ADRCMLEVS) : HADHUIIRT CADHU/25 
63 : LADKVIADWV- Z255XHADRY 

3O5@ ADVB-ADRCMLUBS) 

3068 RESTORE Zi5@:FOR I-8 TO 43:READ B 
YTE 

3186 POKE ADMU+I, BYTE: MENT I 

3158 DATA 104,169,1,133,283, 165,286,197 
28,248, 252,169,192,141,14,212, 96 

S155 DATA 72,136, 272,166,283, 232,224,2, 
268,2,162,0,189,254,6,141,16,212,141,2 
3,208,134, 263,104,173,194,64 

3159 REM DLI INITIATIOR---------~----- 
3166 RESTORE 3Z21@:FOR X=-@ TO LL:READ B 
YTE 

3206 POKE ADVEtI, BYTE: NEXT I 

3218 DATA 104, 162,1,165,28,197,26,248, 
252,134,203, 96 

3388 REM VBI HORIZONTAL SCROLL------- 
3320 RESTORE 3376:FOR I=1656 TO 1789:R 
Ead BYTE 

3340 IF BYTE=-99 THEN POP :GOTO 3580 
3368 POKE I, BYTE: NEXT I 

3370 DATA 173,252,6,248,46,24,189,253, 
6,141,253,6,141, 4,212, 201,8,208, 32 
3372 DATA 169,6,141,253,6,141,4,212,28 
6,46,6,173,46,6,201,0,288,2,169, 48 
3374 DATA 162,0,157,46,6,232,232, 232,2 
24,6,2806, 246,76, 98,228 

3588 REM VBI ENABLE-~---------------- 
3526 RESTORE 3590: ADUBIE-ADRCMLUBIES) 
3548 FOR I-@ TO 15:READ BYTE 

3586 POKE ADVBIE+I, BYTE: NEXT I 

3598 DATA 104,169,0,141,252,6, 166,128, 


162,6,169,7,32, 92,228, 96 
3608 D=USRCADUBIE) 

3788 REM PLAYER MOVE ROUTINE--------- 
3720 RESTORE 3798: ADMOU=ADR(MLMOUS) 
3740 FOR I=@ TO 155:READ BYTE 

3780 POKE ADMOV+I,BYTE:NEXT I 

3785 POKE ADMOV+69,PH-5S:POKE ADMOU+177 
»PH-6 

3790 DATA 104,173,0,211,72,41,1, 208,11 
»165, 204,133, 205,165, 218,133,206, 24,14 
4,53 

3791 DATA 104,72, 41,4, 208,17, 165, 204,2 
4,105, 80,133, 205,165, 218, 24,165, 20,133 
206 

3792 DATA 24,144,30,1046,72,41,2,288,17 
1165, 204, 24,105, 168,133, 205,165,218, 24 
185 

3793 DATA 40,133,206, 24, 144,7,104, 165, 
219,72, 24,144,168, 104,133,219, 160,10, 1 
69,6 

3794 DATA 145,208,136, 208, 249,164,285, 
185,0,139,48, 9,168,236, 208,136, 208,251 
24 

3795 DATA 144,8,41,127, 168,196, 288, 136 
, 208, 251, 168,10, 177,206,145, 208, 136, 28 
8 

3796 DATA 249,164,205, 165,9,138, 48,13, 
166, 236,220, 238,220,238, 204,136,208, 24 
7,246,144 

3737 DATA 12, 41,127,168, 198,226,198, 22 
8,198, 264,136, 208,247,165, 228,141, 0,20 
8,96 

3888 REHM MIPEOUT CHECK--------------- 
381@ RESTORE 3860: ADMOUT=ADR (MLWOUTS) 
3828 FOR I=@ TO 43:READ BYTE 

3668 POXE ADWOUTtI, BYTE: NEXT I 

3880 DATA 104,165,208, 201,27, 48,31, 261 
,85,16, 27,165, 220,56, 233,113,133, 221,1 
65, 208 

3881 DATA 74,197,221, 48,13, 173,12, 208, 
41,14,208,6,169,1, 141,30, 288, 96,169, 2, 
141,251,6,96 

3908 REM OCTOPUS MOVE ROUTINE-------- 
3916 RESTORE 3986: ADOCMY=ADR(MLOCMUS) 
392@ FOR I=@ TO 35:READ BYTE 

3968 POKE ADOCNV+I, BYTE: NEXT I 

3988 DATA 104,173,250,6,24,189,252,6,1 
09, 252,6,109,252,6,141,250,6,141,1, 268 
,203,144,48,11,169,8 

3981 DATA 141,258,6,141,1, 208,141,251, 
6,96 

3998 REM FISH MOVE ROUTINE----------- 
4000 RESTORE 4848: ADFIMU=ADR(MLFINUS) 
4010 FOR I=8 TO 35:READ BYTE 

4030 POKE ADFINU+I,BYTE:NEXT I 

4048 DATA 104,173,250,6,24,109,252,6,1 
69,252,6,189,252,6,141,250,6,141,2, 208 
201,160, 48,11,169,0 

4041 DATA 141,250,6,141,2, 208,141,251, 
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4656 RETURK 

4855 REM COLOUR INITIATION--~-----~--- 
4066 SETCOLOR @,1,12:S5ETCOLOR 1,7,8:5€ 
TCOLOR 2,9, 1Z:SETCOLOR 4,0,14 

4086 POKE 1790,116:POKE £791,128 

41690 I=LADMVt17: JZHADWV:IF 1)255 THEN 
T=I-255: Joti 

4120 POKE 512, T:POKE 513,J 

4148 D=U5SR CADRY) 

4566 REM BASE SCREEN-------------~--—- 
4520 DOMH-RAMNTOP-32 : DML—@: DN-256%DMH 
4546 THEVAL=255: MEMST-—OM: NUM-216 

4560 D-USRCUPOKAD, THEVAL, MEMST , NUM) 
4586 THEVAL=178: MEMST-DMt216: NUM-792 
4600 D=USRCUPOKAD, THEVAL, MEMST, NUM) 
4628 THEVAL=685 : MEMST—DM+ 1008 : NUN=144 
4646 D-USRCUPOKAD, THEVAL, MEMST, NUM) 
4766 REM O-L MODIFICATION------------ 
4748 DL=-1536:DLL-@: DLH=6 

4768 FOR I=1536 TO 1538:POKE I,112:NEX 
TI 

4788 POKE 1539, 74:POKE 1540, DMLIPOKE 1 
541, DH 

48608 FOR 1=1542 TO 1586:POKE I, 1@:NEXT 
I 

4828 POKE 1581,87:POKE 1562,4@;POKE 15 
63,PM-S:POKE 1584,87:POKE 1585,46:POKE 
1586, Pé-2 

4846 POKE 1587, 76:POXE 1588,@:POKE 158 
9,PH-1 

4860 POKE 1598,65:POKE 1591,DLL:POKE 1 
592,D0LH 

4886 POKE 566,DLL:POKE 561,DLH:POKE 55 
9,47 
4908 
4916 
4328 
4948 
4941 
4368 


REM GR.Z & GR.1 BATA------------ 
REM SPECTATORS 
STI=256% (PH-3) :RESTORE 5@46 
THEVAL=8: MEMST=-STI: NUM-512 
D=HSRCUPOKAD, THEVAL, MEMST, NUD 
FOR I=5TI TO STIF+15 STEP 5 

4588 RDM-SRND (CO) 

5808 READ BYTE: POKE I+RDM, BYTE: POKE I+ 
RDH+46, BYTE 

5028 READ BYTE: POKE I+RDM+256, BYTE: POK 
E I+ROM+296,BYTE:NEXT I 

5046 DATA 8,6,6,10,6,11,5,7 

5886 FOR I=STI+26 TO STIt3S STEP 5S 
5106 RDK-S*RND CO 

5126 READ BYTE: POKE I+RDH,BYTE 

Si3@ IF BYTE=Z THEN POKE I4#RDMti,1:POK 
E ItRDMt+257,3:60TO 515@ 


5248 READ BYTE: POKE I+RON+256, BYTE 
3158 NEXT I 

5166 DATA 8,9,0,6,2,4,7 

5165 REM TEXT 

517@ THTAD=256%(PM-1}:THTS=" SCORE= 6 


5186 
5185 
9196 


FOR I=1 TO LENCTRTS) 
INTCHR=ASC CTRTS C1, 193-32 
POKE THTAD+I-1, IKNTCHR:MEXT I 


5206 REM WAVE BUILD----~------~------~ 
5218 IF STRIG(@}-1 THEN GOTO 5216 

5220 RESTORE 5466:DELAY=-35 

$248 FOR I=1 TO 15 

5268 READ LINEST, LINEFN:LINEST=DL+44L1 
MEST: LINEFN=DL+4+LINEFN 

5266 POKE LINEST,136:POKE LINEFN, 138 
5281 DIUSRCADUE) 

529@ IF I-15 THEN POP :GOTO 5506 

5366 DELAY-DELAY-~2%1:G05U8 DEL 

5328 POKE LINEST,16:POKE LIWEFN, 16 
5340 WEXT I 

5486 DATA 16,12,11,13,12,14,13,16,14,1 
7,15,19,16,21,17,23,18,25,18,27,17,29, 
16,32,15,35,13,38,11,46 

$508 REN WAVE BREAK------------------ 
5528 DRCOLR=O:NST=98:YST=1L1:POKE 8&,DMK 
L:POKE 89,DMH:POKE SCROLS,1 

5548 FOR I=1 TO 34:READ YFN 

5568 D=USRCABDRAN, DRCOLR, YFN, YST,KST) 
§ H5ST=NST-LIWEHT I 

$596 DATA 39,39,39,39,39,39,39,38,358,3 
8,38,38,37,37,37,37 

5591 DATA 36,36,35,34,33,32,31,30,28,2 
6,24,22,19,17,15,13,12, 11 

5999 RETURN 

6606 REM WIPEOUT--~~----------------- 
6628 POKE 218,68: D-USRCADMOV) :POKE SCR 
0L5,@ 

6046 DELAY=25:G05UB DEL 

6860 POKE 53248, 26 

6680 DRCOLR=@:Y5T=11: YFN-39 

6108 FOR XST=83 TO @ STEP -1:D=USRCADD 
RAW, DRCOLR, VFN, YST, X51) SWEXT HST 

6208 REN FINISH--------------~-~~-~-- 
6228 POKE SCROLS,@:POKE 708,@:POKE 532 
49,26; POKE 53256, 28 

6236 THEVAL=0: MEMST—=PNA+512 : NUM-128 
6231 D=USRCUPOKAD, THEVAL , MENST, NUM) 

6 THTS (18)=SCR5: TRTS CLO+LEN CSCRS) 3 = 
" "STRTHS=" HISCORE= " 

6268 THTHS (12)-STRS CHSCORES 

6280 IF SCORE) HSCORE THEN HSCORE=SCORE 
6298 DELAY=5@ 

6368 FOR I-1 TO LEWCTKTS) 

6320 INTCHR=ASCCTXTS (1, 133-32 

6346 POKE THTAD+I-1,INTCHR: NEXT I 

6368 GOSUB DEL 

6386 FOR I=1 TO LENCTHTHS) 

6460 INTCHR=ASCCTRTHS (CE, 133-32 

6420 POKE THTAD+I-1, INTCHRINEXT I 

6448 GOSUB DEL: IF STRIG(8)-@ THEN GO5SU 
B 4055:G0TO 2080 

6468 GOTO 6360 

8000 REM P-M GRAPHICS---------------- 
8820 RANTOP=PEEK C166) : PH“RAMTOP-i6: PMO 
=2563%PN 

6640 POKE 54279, PM:POKE 559,46:POKE 53 
277, 3:POKE 623,17:POKE 53256,1:POKE 76 
4,40:POKE 7@5,204:POKE 706,76 


8866 THEVAL=6: MEMST-PMO-8%256 : NUM-12%2 
56 

8880 D=USRCUPOKAD, THEVAL , MEMST, NUM 
8128 REM SURFER 

6140 RESTORE 8181: 0FFSET-@:FOR J=1 TO 
6 

8160 FOR I=t TO LL:READ BYTE:POKE PMet 
OFFSET+I, BYTE: NEXT I 

6186 OFFSET-OFFSET+Z6:MEXT J 

G1G1 DATA 0,8,4,14,5,44,52,28,12,4,8 
8182 DATA 0,6,8,26,8,28,16,254,4,8,6 
8183 DATA 6,6,26,8,14,22,24,16,32,64,8 
6184 DATA 8,0,146,16,79,18,33,6,16,8,0 
DATA 8,8,4,72,113, 216, 76,8, 16,32, 


DATA 9,2,3,66, 74,568, 34,162,128, 32 


REM OCTOPUS 
RESTORE 8215:FOR I-@ TO 3:REAB BY 


POKE PMO+680+I, BYTE: NEXT I 

6215 BATA 60,126,126, 126,60, 96,153,165 
7165, 36 

6219 REM FISH 

8228 RESTORE 8236:FOR I-i£ TO S:READ BY 
TE 

8225 POKE PMO+6554+1, BYTE: NEXT I 

8236 DATA 132,222,254,255,158 

8245 ADPL=PM@+560; ADPLH-INT CADPL/256) : 
ADPLL=ADPL~Z56%ADPLH 

6250 REM MOVE CHARACTER SET---~--~---- 
6266 FOR I-1 TO 3Z:READ BYTE 

8278 MLCHMVS (I)=CHRS (BYTE) NEXT I 
8288 DATA 104,104,133, 204, 104,133,203, 
104,133,206, 104,133, 285,162,2 

8261 DATA 166,6,177, 263,145, 285,136, 268 
8,249,230, 204,230, 206, 202, 206, 240, 96 
8298 D=USRCADR CHLCHNVS) , 57344, 256% (PH- 
8)) 

6360 REM CHARACTER SET--------------- 
8320 CHARPG-PM-8: CHARAD=256%CHARPG : POK 
E 756,CHARPG:RESTORE 6386 

8340 FOR I-@ TO 11:FOR J-@ TO 7 

8368 READ BYTE:POKE CHARAD+E#I+J, BYTE: 
NEXT J:WEXT I 

6380 DATA 255,255,255, 255, 255,255, 255, 
255 
e361 
8382 
255 
8383 
127 
8384 
218 
8385 
242 
8386 
142 
8387 
237 


DATA 
DATA 


255,127,31,7,3,1,127,127 

255,255, 252,248, 224,192,255, 
DATA 127,127,127,127, 127,127,127, 
DATA 255,255,255, 243, 243,255, 225, 
DATA 255, 255,191,179,179,223,225, 
DATA 231,231,255, 207, 143,155,149, 


DATA 242, 242,242, 237,237,237, 237, 
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8388 
191 
B389 
191 
8358 
123 
8391 
231 
8408 
8413 
8426 
8446 
8460 


DATA 191,125, 129,129,191,191,191, 


DATA 191, 191,191, 191,191, 191,191, 


DATA 255,253,124,124,131, 131,187, 


DATA 255,255, 255, 255, 231,195,195, 


REM MOVE TABLES---~--~~~~------- 
REM HORIZONTAL 

MEMS T= CPM-6)%256:RESTORE 8490 

FOR I=1 TO 22:READ THEVAL, NUM 
=USRCUPOKAD , THEVAL , MENST, NUMD 
8480 MEMST=MEMSTINUM: NEXT I 

$496 DATA 2,16,1,26,2,18,3,18,4,10,4,1 
8,5,10 

6451 DATA 2,16,1,18,0,28,129,5,138,5,1 
31,16,132,168,133,10 

8492 DATA 2,18,1,26,0,16,129,15,136,5, 
131, 18,132,108 

8519 REM VERTICAL 

8526 MEMST=(PN-5)¥#256:RESTORE 8590 
6540 FOR I=1 TO 17:READ THEVAL, NUM 
8560 D=HSRCUPOKAD, THEVAL , MEMST, NUM) 
8580 MEMST=NEMST+MUM: NEXT I 

8596 DATA 2,10,1,16,0,16,129, 108,136,168 
2 131,10, 132,18,133,10 

8591 DATA 4,10,3,20,2,20,1,28,0,18,4,2 
0,3, 40,4,10,5,16 

8599 RETURN 


- 8608 REM TITLE SCREEN---------------- 


8620 GRAPHICS 2:POKE 752,1 
8640 POSITION 4,4:PRINT 86;"*WAX HEAD 
FS eid 


8660 PRINT " RPRESS TRIGGER TO STA 
RT™ 

8662 PRINT " ¥PRESS TRIGGER FOR HA 
VE" 

8664 PRINT " *PRESS TRIGGER FOR WE 
HW GAME" 


8660 IF STRIG(8)}-1 THEN GOTO 8686 

6708 REM STANDBY SCREEN-------------- 
8720 GRAPHICS S:POKE 752, 1:RESTORE 875 
t] 

8740 FOR I=1 TO 21:READ HEADS: POSITION 
31, 8+: PRINT HG;HEADS: NEXT 1 

8750 DATA DDDDDDDDDADDDODDDDD 

8751 DATA DDDDDDADDADDADDDDDD 

8752 DATA DDDADDAAAAARADDADDD 

8753 DATA DODAAAAAAAAANAAADDD 

8754 DATA DDDBBBBEBBBBBBEBDDD 

8755 DATA DDBBEBBBBBBBBBBBEDD 

8756 DATA DDBBEBBBBBBBBEBBBOD 

8757 DATA DBBBBDDEBBBBDDBBBBD 

8756 DATA DBEBEDDEBEBBDDBBEBD 

8759 DATA BBBBBBBEBBEBBEBBEBE 

8760 DATA SBBBEBBBBEBBBEBBBBB 

8761 DATA BBBBBBBEBDEBBEBBEBE 

8762 DATA BBBBBBBEBBEBBBBBSBE 

8763 DATA DBBBBBBBESBEBBBBBED 


8764 
8765 
6766 
8767 
6768 
8769 
8778 
8788 
HAX 
8999 
9088 
9628 
9108 
9161 
9110 
TE 


DATA SDBBBBDEEBBBDEBBBDD 

DATA DDBEBEBDDDDDBBBBBDD 

DATA DDBBBBEBDDDBBBBBBDD 

DATA DOBEBEBBEBEEBBBBBDD 

DATA DDDBBBBBBBBEBBBBDOD 

DATA DDDDBBRBBBBBBBBDDDD 

DATA DDDDDODDBEBBBDDDDDDD 

PRINT :PRINT " HANG TEN WHILE I 
MY BOARD" 

RETURN 

REM DELAY SUBROUTINE------------ 
FOR T-1 TO DELAY: NEXT T: RETURN 
REM POKE VALUE ROUTINE---------- 
RESTORE 9150: VPOKAD-ADR CMLPOKES) 
FOR I-YPOKAD TO VPOKAD+43:READ BY 


ANSWERS: 


913@ POKE I,BYTE: NEXT I 

9158 DATA 164,162,5,104, 149,284, 282,16 
, 250,165, 285, 248,17,165, 208, 160,255, 14 
5,206,136 

9151 DATA 206,251,145, 286, 238, 207,158, 
205, 268, 241,198, 204,165, 208, 164,204, 14 
5,286,136, 288 

9152 DATA 251,145, 206,96 

9266 REM DRAW ROUTINE---~------------ 
9228 ADDRAW-ADRCMLDRANS) :RESTORE 9290 
9246 FOR I-@ TO 185:READ BYTE 

9268 POKE ADDRAMHI, BYTE: NEXT I 

9298 DATA 104, 162,3,104, 164,149, 112,28 


2,16,249,56, 165,114,229, 113, 133,116, 16 
5,868,133 


9291 DATA 116,165, 89,133,119, 164,113,2 
ACEFEB86 


oonrme meee seeenee ee ee oeee 


»TRAMIEL ICON BYTE 


-R O D 0 . 
-A U STARRAIDERS . 
NS ie) : 
-S E MODEM NYBBLE . 
I O UK A. 
-S GN CCET. 
. TELEVISION AAYA. 
-O MT S SBR. 
»R 0 S SFOT. 
- THIRTYTWO ELIZA W. 
. A F TLRR. 
. Cc T TMODI. 
-JACK HARDWARE T. 
. E A SYNFILE. 
. FIRMWARE R R. 
. E . 


40,180,169, 24,133,117,32,184,6,136, 268, 
250,165,112, 74, 74,133, 117,32, 184,6 
9292 DATA 169,252,133, 120,165,112, 41,3 
7170, 224,3,240,13,6,115,6,115,56,38,12 
6,38,128,232,24,144,239 

9293 DATA 230,116, 166,116, 168, 6,165,12 
@,49,116,145,118,165,115,17,118,145, 11 
8,262, 240,108,169, 24,133 

9294 DATA 117,32,184,6,24,144,229, 96 
9300 RESTORE 9336:FOR I=@ TO il 

9326 READ BYTE: POKE 172041, BYTE: WEXT I 
9338 DATA 24,165,118, 161,117, 133,118,141 
44,2,238,119,96 

9398 RETURN 





CLASSIFIEDS 


FOR SALE 


Software 


Cartridges (each) 

$20.00 ~- Q-Bert, Missile Command, Miner 2049er, Qix, Popeye, 
Ms Pacman, Centipede, River Raid and Pengo. 

§15.00 - Frogger, Super Cobra and Squish'Em. 

$10.00 - Final Orbit, Fantastic Voyage, Crossfire, Spider City and 
Alpha Shield. 


Diskettes (each) 
$20.00 - Caverns of Mars. 


Cassettes (each) 

$10.00 - The E-Factor, Crypts of Plumbous, Kid Grid, Meltdown, 
Aztec Challenge, Jawbreaker, Blackjack, Spider Invasion and 
An Invitation to Programmimg. 


Contact; 
Matthew Johnson 
5 Mary Street, 
Goulburn, 2580 


Ph. (048) 21-3724 
RRKEKKE 


Catridges (each) 
$20.00 - Jungle Hunt, Star Raiders. 


Diskettes (each) 
$15.00 - Caverns of Mars. 


Cassettes (each) 
$15.00 - Canyon Climber. 
$10.00 - Atari Cassette Enhancer. 


All are originals with complete documentation. Prices Negotiable. 
Contact; 
Andrew Hobson 


Ph. (067) 72-6217 
REKKKER 


Catridges (each) 

$20.00 - Computer Chess, Music Composer, Pacman, Pitstop. 
$15.00 - Defnder, Galaxian, Spider City. 

$10.00 - Demon Attack, Space Invaders. 

$ 8.00 - Oils Well. 


Diskettes (each) 

$50.00 - Visicalc. 

$25.00 - Zork I. 

$15.00 - Odin. 

§10.00 - Digger Bonk, Donkey Kong, Twerps. 

§ 8.00 - Babel, Comedy Disk, Downhill, Howitzer/Outlaw, Truitty 
Fruitty. 

§$ 6.00 - Hickory Dickory. 
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Cassettes (each) 

$30.00 - Conversational Italian, Conversational Spanish. 
$20.00 - Mailing List, Touch Typing. 

$15.00 - Coconuts, Graphit, Peanut Butter Panic. 

$10.00 - Date Stones of Ryn, King Arthur's Heir, Kissin' Kousins. 
$ 8.00 - Dodge Racer, Vocabulary Builder. 

$ 5.00 - Giant Slalom, Scram. 

All original software. Prices negotiable. 

Contact; 

Ounas Gerges 

Ph. Home (02) 674-3910 


Work (02) 238-2465 
KRKEKKKEREK 


Hardware 


COMPUER SYSTEM plus software 
$750.00 - Atari 800XL, 1010 datacassette, parallel printer interface. 
- Atariwriter, Touch Typing, Introduction to Programming 
1,2 and 3, River Raid, Necromancer, Zaxxon, Star Raiders, 
Defender, Fort Apocalypse, Oil's Well, Crossfire, Mr Cool, 
Meltdown, Decathalon, Miner 2049er, Pole Position, 
Donkey Kong, Pac-man, Qix. 
- Mapping the Atari, Atari Games and Recreation and 
Games Atari's Play. 
If sufficient demand will sell items separately. 
Contact; 
Donald Urquhart 


Ph. (02) 21-6209. 
RKKKKKEK 


RPEHESPABRATPEL x SEEK TINS 


1) Touch Tablet with Atari Artist Cartridge. 

2) ACTION! cartridge and documentation. 

3) I am also interested in swapping Public Domain Software. 
Contact; 

Andrew Hobson 

Ph. (067) 72-6217 


21 


® 
AERKK 7 KEE 


Atari Computer Enthusiasts 
Fugene A.C.E in the USA. and with no 
and $15 (Renewal) thereafter. 


page. Meabers’ personal ads are free. 
COMMITTEE MEMBERS 





(N.S.W.) is 


INFORMATION 


an independent 


HOME PHONE NC. 


non-profit computer 
connection to ATARI Inc. Meabership fees are 
Meabership peraits free access to the group’s Bulletin Board service and a 6 issue 
subscription to INSIDE INFO. Unless noted as being copyright, permission 
INFO, making acknowledgement tothe source. Opinions expressed are those of 
represent the views of ACE (NSW). Advertising rates in INSIDE INFO are $50 full page, 


users’ group 


the author 


COMMITTEE MEMBERS HOME 


APRIL 1986 


loosely affiliated with 
currently $20 for the first year 


is given to reprint articles from INSIDE 


and do not necessarily 
$30 half page and $20 quarter 


PHONE NO. 


Colin Grace (President) (O02) 337-2697 Larry O'Keefe (Vice Pres) (02) 529-8249 
Peter Dickeson (Sec/Tres) (O32) 808-3429 Ian Murray (Meet Organizer) (02) 662-4110 
Craig Armsworth (Editor) (02) 918-3814 Jeff Maddack (Sysop) (02) 568-2990 


Brian Elliot CLibrarian) 


(O02) 451-2835 


Philip Hayne (Soft Exchange) (02) 


918-2360 


PAYMENTS, CORESPONDENCE AND NEWSLETTER EXCHANGE 
All payaents aay be made at any aeeting or by mail. All cheques and Maney Orders should be sade payable to Atari 
Computer Enthusiasts (N.S.W.). All correspondence and Newsletter Exchange should be forwarded to:- 


A.C.E. (N.S.W.) GPO BOX 4514, SYNDEY N.S.W. 2001 


BULLETIN BOARD - Phone (02) 940 9844 
Operating hours - 6PM to 9AM Monday to Friday. Full 24 hours on both Saturday and Sunday. 
Access requires a personal password from SYSOP upon sembership. ‘AMODEM’ terminal software or derivatives 
comaended. PUBLIC DOMAIN SOFTWARE ONLY!! 


1s 


3 MEMBERS’ DISCOUNTS 
COMPUTER-1 (5% Discount3:- 200 Alison Road , Randwick. Phones- (02)399 8865 
HOTLINE BOOKS AND SOFTWARE (10% Discount]:~- 693 George Street, Haymarket, Sydney. Phone:- (02)212 6077 
COMPUTERWAVE (5% Discount -Cash Only]:- 325 George Street, Sydney (near Wynyard), Phones~ (02) 29 1631 
THE COMPUTER SPOT [5% Credit, 10% Cash):- Shop C4, MLC Centre, Martin Place. Phone (02)235 2971 
COVER CARE (25% off computer dust covers}:- P.0.Box 719, Chatswood, N.S.W. 2067. Phones~ (02)498 5631 
ERGONOMIC DESIGNS LTD. (10% off computer desks}:- 414 Stirling Highway,Cottesloe,WA 6011. Phones- (09) 384 8499 


SOFTWARE EXCHANGE 
A full range of public domain software is available frow the Software Exchange for $6 per disk. A list of Software 
Exchange disks begins from INSIDE INFO No.21 and updates continue from subsequent issues. 


ARTICLE/PROGRAM SUBMISSIONS 
Articles for INSIDE INFO should reach the Editor as early as possible, and at least ONE MONTH ahead of the release 
date. Disk subsissions should use single density DOS 2 foraat. Subsissions will entitle you to one Software Exchange 
disk at half price. 
MEETING DETAILS 
Meetings are held at 6PM in the 2nd Floor. of the Y.W.C.A, corner of Wentworth Avenue and Liverpool Street, 
rlinghurst 2010. 

UPCOMING MEETINGS:- MIQONDAY APRIL 14 
MONDAY JUNE 2 


MONDAY JULY 14 


Atari Computer Enthusiasts (N.S.W.) 
MEMBERSHIP FORM 











NAME: 

ADDRESS: — 

TOWN/ SUBURB: 

STATE: POSTCODE: 

FHONES:- home ( ) = work ( ) i 

SIGNATURE: _ AGE: DATE: / / —- 
Enclosed is [JCash []Cheque [JMoney Order for:- 

O820 joining membership ([JS15 membership renewal [JNotice of change of address 


UFFICE USE ONLY: 


fate Processed: Receipt #: Last Issue: — 





